00100		DIMENSION INP(80),N2(2),KI(5)
00200		DATA IBLA/' '/,ISEMI/';'/
00220		DOUBLE PRECISION INTEGER NNM
00240		EQUIVALENCE (NNM,N2,NAM)
00300	888	FORMAT(80A1)
00400	889	FORMAT(1XA5)
00500	890	FORMAT(' TYPE'/)
00600	891	FORMAT(1X80A1)
00700	5	TYPE 890
00800		ACCEPT 888,INP
04900		JBLA=0
05000	106	NNM=0
05100		DO 102 K=1,5
05150		J=INP(K)
05160		IF(J.EQ.IBLA.OR.J.EQ.ISEMI)JBLA=-1
05180		IF(JBLA)J=IBLA
05200	102	NNM=NNM*128+J
05300	104	NNM=NNM*2
05400	C NOW NAM (EQUIV. TO N2(1)) HAS PACKED NAME.
05500	105	NAME=NAM
05600		TYPE 889,NAME
05700		GO TO 5
05800		END